function testInternalEdge( )
%UNTITLED Summary of this function goes here
%   Detailed explanation goes here
    setEnv();
    videoDir = 'C:\Users\rniehaus\Documents\Elegans\Videos\Test Video 300 Frames\';
    identifier = 'tif';
    [video, nFrames, vidRows, vidCols] = loadVideo( 'SeparateImages', videoDir, identifier );
    total = zeros(vidRows,vidCols); 
    h = fspecial('gaussian',[5,5],1);
    bwFrames = zeros(vidRows,vidCols,nFrames);
    seqnum = 0;
    for i = 135:140
        
        seqnum = seqnum+1;
        bwFrame(:,:,seqnum) = segWormVal(video(i).gdata);
        
       
         
%         maskedGs = im2double((video(i).gdata)) .* im2double(bwFrame);
%         maskedGsfilt = filter2(h,maskedGs);
        
        
    end
    for i = 1:seqnum
        
        total = bwFrame(:,:,i) + total;
    end
    figure(1), imshow(total, [min(min(total)), max(max(total))]);
    
    maskedFinal = im2double(bwFrame(:,:,4)) .* im2double(total);
    figure(2), imshow(maskedFinal, [min(min(maskedFinal)), max(max(maskedFinal))]);
end